home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -screenplay- / shareware / amigapmars / flashpaper.red < prev    next >
Text File  |  1995-04-15  |  1KB  |  67 lines
  1. ;redcode
  2. ;name Flash Paper3.7
  3. ;author Matt Hastings
  4. ;A macrorized version of Flash Paper3.7
  5. ;assert CORESIZE == 8000
  6.  
  7. s01   EQU -2340
  8. s02   EQU  5823
  9. s03   EQU  1000
  10. s04   EQU  6109
  11. s05   EQU  3009
  12. s06   EQU  4832
  13. s07   EQU  1080
  14. s08   EQU -3040
  15. s09   EQU -3040
  16.  
  17. m01   EQU  1020
  18. m02   EQU -740
  19. m03   EQU -3690
  20. m04   EQU  1873
  21. m05   EQU -200
  22. m06   EQU -1830
  23. m07   EQU  4096
  24. m08   EQU -195
  25. m09   EQU -195
  26.  
  27. mark  EQU mark0+1
  28.  
  29.       spl stst,<-2050
  30.       spl 1,<440
  31.       spl 1,<460
  32.       spl mark+9,<2113
  33.       spl mark+18,<2140
  34.       spl mark+27,<2720
  35.       spl mark+36,<-4000
  36.       spl mark+45,<-4020
  37.       spl mark+54,<3360
  38.       spl mark+63,<-970
  39.  
  40. mark0
  41. paper for 9
  42.       mov #8, 8
  43.       mov <-1, <2
  44.       mov <-2, <1
  45.       spl @0, s&paper
  46.       mov <-1, m&paper
  47.       jmz -5, -5
  48.       mov 0, -1
  49.        for paper < 9
  50.        dat #0, #1
  51.        dat #0, #1
  52.        rof
  53.       rof
  54.  
  55. stst  spl st,<-2030
  56.       spl st,<750
  57.       spl st,<-2630
  58.       spl st,<-4533
  59.       spl st,<-1153
  60.       spl st,<-453
  61. st    spl 0,0
  62.       mov <2860,-2858
  63.       add 2,-1
  64.       djn -2,<2920
  65.       dat #948,#-948
  66.       end
  67.